home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / math.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-01-31  |  2.2 KB  |  45 lines
  1. 10  N=1
  2. 20  CLS
  3. 30  PRINT TAB(30)"MRS. LAAKSO'S MATH QUIZ":PRINT:PRINT:PRINT
  4. 32  IF N=1 THEN INPUT"PLEASE ENTER YOUR NAME ---";HANDLE$
  5. 40  IF N> 1 THEN PRINT TAB(10)HANDLE$" -- NUMBER CORRECT ---"NC"                        NUMBER WRONG ---"NW:PRINT:PRINT
  6. 50  INPUT "ENTER WHETHER YOU WANT TO MULTIPLY (M), ADD (A), DIVIDE (D), OR SUBTRACT (S).";MATH$:IF MATH$ = "M" OR MATH$ = "A" OR MATH$ = "D" OR MATH$ = "S" THEN GOTO 60 ELSE GOTO 270
  7. 60  IF MATH$ = "M" THEN MATH$ = "X":GOTO 100
  8. 70  IF MATH$ = "A" THEN MATH$ = "+":GOTO 100
  9. 80  IF MATH$ = "D" THEN MATH$ = "/":GOTO 100
  10. 90  IF MATH$ = "S" THEN GOTO 100 ELSE GOTO 270
  11. 100  INPUT"ENTER FIRST NUMBER HERE ----";FIRST
  12. 110  IF MATH$ = "S" THEN PRINT"NOW ENTER THE NUMBER YOU WANT TO SUBTRACT FROM"FIRST"---":INPUT SECOND:GOTO 150
  13. 120  IF MATH$ = "X" THEN PRINT"NOW ENTER THE NUMBER YOU WANT TO MULTIPLY"FIRST"BY ---":INPUT SECOND: GOTO 150
  14. 130  IF MATH$ = "+" THEN PRINT"NOW ENTER THE NUMBER YOU WANT TO ADD TO"FIRST"---"::INPUT SECOND: GOTO 150
  15. 140  IF MATH$ = "/" THEN GOSUB 380:PRINT"THE NUMBER YOU ARE TO DIVIDE INTO"FIRST"IS"SECOND"
  16. 150  IF MATH$ = "X" THEN ANSWER = FIRST*SECOND:GOTO 190
  17. 160  IF MATH$ = "+" THEN ANSWER = FIRST+SECOND:GOTO 190
  18. 170  IF MATH$ = "/" THEN ANSWER = FIRST/SECOND:GOTO 190
  19. 180  IF MATH$ = "S" THEN MATH$ = "-":ANSWER = FIRST-SECOND
  20. 190  PRINT:PRINT:PRINT TAB(30)FIRST;:PRINT MATH$;:PRINT SECOND"="
  21. 200  PRINT:INPUT"NOW, ENTER YOUR ANSWER HERE ---";STUDENT
  22. 210  IF STUDENT = ANSWER THEN GOTO 220 ELSE GOTO 280
  23. 220  FOR Y = 1 TO 5
  24. 230  PRINT"THAT'S RIGHT "HANDLE$" !!!! YOU'RE GREAT, MAGNIFICENT, WONDERFUL !!!"
  25. 240  NEXT Y
  26. 250  NC=NC+1:FOR W = 1 TO 1500 : NEXT W
  27. 260  N=N+1:GOTO 20
  28. 270  PRINT:PRINT:PRINT"WHOOPS, YOU GOOFED !!!! NOW THINK HARD AND PLEASE DO IT RIGHT !!!":GOTO 50
  29. 280  CLS:FOR W = 1 TO 30
  30. 290  PRINT"WRONG !! ";
  31. 300  NEXT
  32. 310  FOR W = 1 TO 500: NEXT W
  33. 320  NW = NW + 1:PRINT:PRINT:PRINT "YOU HAD BETTER TRY THIS AGAIN !"
  34. 330  IF MATH$ = "S" THEN MATH$ = "-"
  35. 340  PRINT:PRINT:IF MATH$ = "X" THEN PRINT"REMEMBER YOU ARE TO GIVE THE ANSWER TO"FIRST"TIMES"SECOND:GOTO 190
  36. 350  IF MATH$ = "+" THEN PRINT"REMEMBER YOU ARE TO GIVE THE ANSWER TO"FIRST"PLUS"SECOND:GOTO 190
  37. 360  IF MATH$ = "/" THEN PRINT"REMEMBER YOU ARE TO GIVE THE ANSWER TO"FIRST"DIVIDED BY"SECOND:GOTO 190
  38. 370  IF MATH$ = "-" THEN PRINT"REMEMBER YOU ARE TO GIVE THE ANSWER TO"FIRST"MINUS"SECOND:GOTO 190
  39. 380  ND = ND + 1
  40. 390  IF ND = 1 OR ND = 4 OR ND = 7 OR ND =10 THEN SECOND = 12:GOTO 430
  41. 400  IF ND = 2 OR ND = 5 OR ND = 8 OR ND = 11 THEN SECOND = 7:GOTO 430
  42. 410  IF ND = 3 OR ND = 6 OR ND = 9 OR ND = 12 THEN SECOND = 4:GOTO 430
  43. 420  SECOND = 12
  44. 430  ANSWER = FIRST/SECOND:IF INT(ANSWER) = ANSWER THEN RETURN ELSE SECOND = SECOND - 1: GOTO 430
  45.